home *** CD-ROM | disk | FTP | other *** search
/ Deep Throat Girls 5 / Deep Throat Girls 5.iso / mac / MAC.Dir / 00056_frame.ls < prev    next >
Encoding:
Text File  |  1997-02-09  |  1.7 KB  |  65 lines
  1. on exitFrame
  2.   global time, play, rate, movie, men, unhide, commence
  3.   when keyDown then nothing
  4.   puppetSprite(5, 1)
  5.   puppetTempo(10)
  6.   if play = 1 then
  7.     set the castNum of sprite 5 to movie
  8.     updateStage()
  9.     set the movieTime of sprite 5 to time
  10.     set the movieRate of sprite 5 to rate
  11.     set play to 0
  12.   end if
  13.   if the castNum of sprite 5 = movie then
  14.     if the controller of member movie = 0 then
  15.       set the movieRate of sprite 5 to 1
  16.     end if
  17.     if the movieTime of sprite 5 = the duration of member movie then
  18.       if movie = 47 then
  19.         set men to 0
  20.       end if
  21.       repeat with q = 5 to 11
  22.         puppetSprite(q, 0)
  23.       end repeat
  24.       puppetTempo(120)
  25.       unloadMember(movie)
  26.       set the colorDepth to 8
  27.       puppetSprite(1, 0)
  28.       cursor(200)
  29.       set the cursor of sprite 5 to 200
  30.       set the cursor of sprite 6 to 200
  31.       set the cursor of sprite 7 to 200
  32.       set the cursor of sprite 8 to 200
  33.       set the cursor of sprite 9 to 200
  34.       set the cursor of sprite 10 to 200
  35.       set the cursor of sprite 11 to 200
  36.       if men = 0 then
  37.         set the colorDepth to 32
  38.         if the colorDepth < 32 then
  39.           set the colorDepth to 16
  40.         end if
  41.         go(1)
  42.       else
  43.         go(2)
  44.       end if
  45.     end if
  46.   else
  47.     if the mouseDown = 0 then
  48.       set unhide to 0
  49.     end if
  50.     if (commence = 1) and (unhide = 0) and (the mouseDown = 1) then
  51.       repeat with q = 6 to 11
  52.         puppetSprite(q, 0)
  53.       end repeat
  54.       if the castNum of sprite 5 = movie then
  55.         set time to the movieTime of sprite 5
  56.       end if
  57.       set the castNum of sprite 5 to movie
  58.       updateStage()
  59.       set the movieTime of sprite 5 to time
  60.       set the movieRate of sprite 5 to rate
  61.     end if
  62.   end if
  63.   go(the frame)
  64. end
  65.